home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic 4 Database How-To
/
Visual Basic 4 Database - How-to (The Waite Group)(1995).iso
/
graphic.fr_
/
graphic.fr
Wrap
Text File
|
1995-07-05
|
6KB
|
218 lines
VERSION 4.00
Begin VB.Form Form1
BackColor = &H00C0C0C0&
Caption = "Object Library"
ClientHeight = 4590
ClientLeft = 1050
ClientTop = 2145
ClientWidth = 6690
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 5280
Left = 990
LinkTopic = "Form1"
ScaleHeight = 4590
ScaleWidth = 6690
Top = 1515
Width = 6810
Begin VB.CommandButton cmdClose
Caption = "C&lose"
Height = 315
Left = 4500
TabIndex = 8
Top = 3960
Width = 1335
End
Begin VB.CommandButton cmdDelete
Caption = "&Delete"
Height = 315
Left = 2040
TabIndex = 7
Top = 3960
Width = 1335
End
Begin VB.CommandButton cmdAdd
Caption = "&Add"
Height = 315
Left = 780
TabIndex = 6
Top = 3960
Width = 1335
End
Begin VB.TextBox txtTitle
DataField = "Title"
DataSource = "Data1"
Height = 315
Left = 840
TabIndex = 1
Top = 180
Width = 2235
End
Begin VB.Data Data1
BOFAction = 1 'BOF
Caption = "Data1"
Connect = "Access"
DatabaseName = "C:\VBVBHT\CHAPTER.07\GRAPHIC.MDB"
EOFAction = 2 'Add New
Exclusive = 0 'False
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 315
Left = 3360
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Object Library"
Top = 3960
Width = 1140
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "&Object:"
Height = 195
Left = 480
TabIndex = 4
Top = 600
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "&Class:"
Height = 195
Left = 3420
TabIndex = 2
Top = 240
Width = 525
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "&Title:"
Height = 195
Left = 300
TabIndex = 0
Top = 240
Width = 450
End
Begin VB.Label lblClass
BorderStyle = 1 'Fixed Single
DataField = "Object Type"
DataSource = "Data1"
Height = 315
Left = 4080
TabIndex = 3
Top = 180
Width = 2235
End
Begin VB.OLE OLE1
DataField = "Object"
DataSource = "Data1"
Height = 2835
Left = 480
SizeMode = 3 'Zoom
TabIndex = 5
Top = 900
Width = 5655
End
Begin VB.Menu mnuFile
Caption = "&File"
Begin VB.Menu mnuFileExit
Caption = "E&xit"
End
End
Begin VB.Menu mnuEdit
Caption = "&Edit"
Begin VB.Menu mnuEditPaste
Caption = "&Paste"
Shortcut = ^V
End
Begin VB.Menu mnuEditPasteSpecial
Caption = "Paste &Special..."
End
Begin VB.Menu mnuSep1
Caption = "-"
End
Begin VB.Menu mnuEditInsertObject
Caption = "&Insert Object..."
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdClose_Click()
If OLE1.DataChanged Or txtTitle.DataChanged Then
Data1.UpdateRecord
End If
End
End Sub
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub mnuActiveControl_Click()
MsgBox Me.ActiveControl.Name
End Sub
Private Sub cmdDelete_Click()
Data1.Recordset.DELETE
Data1.Recordset.MoveNext
End Sub
Private Sub Data1_Reposition()
If lblClass.Caption = "" Then
lblClass.Caption = OLE1.Class
End If
End Sub
Private Sub mnuEditInsertObject_Click()
OLE1.InsertObjDlg
If OLE1.DataChanged Then
lblClass.Caption = OLE1.Class
End If
End Sub
Private Sub mnuEdit_Click()
If Me.ActiveControl.Name = "OLE1" Then
mnuEditPaste.Enabled = OLE1.PasteOK
mnuEditPasteSpecial.Enabled = OLE1.PasteOK
mnuEditInsertObject.Enabled = True
Else
mnuEditPaste.Enabled = False
mnuEditPasteSpecial.Enabled = False
mnuEditInsertObject.Enabled = False
End If
End Sub
Private Sub mnuEditPaste_Click()
OLE1.Paste
lblClass.Caption = OLE1.Class
End Sub
Private Sub mnuEditPasteSpecial_Click()
OLE1.PasteSpecialDlg
lblClass.Caption = OLE1.Class
End Sub